VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ShapeStyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private m_Init As Boolean
Private m_Width As Long
Private m_Height As Long
Private m_Top As Long
Private m_Left As Long
Private m_EditorWidth As Long
Private m_EditorHeight As Long
Private m_Text As String

Public Property Get Init() As Boolean
    Init = m_Init
End Property

Public Property Let Init(ByVal ini As Boolean)
    m_Init = ini
End Property

Public Property Get Width() As Long
    Width = m_Width
End Property

Public Property Let Width(ByVal wid As Long)
    m_Width = wid
End Property

Public Property Get Height() As Long
    Height = m_Height
End Property

Public Property Let Height(ByVal hei As Long)
    m_Height = hei
End Property

Public Property Get Top() As Long
    Top = m_Top
End Property

Public Property Let Top(ByVal Top As Long)
    m_Top = Top
End Property

Public Property Get Left() As Long
    Left = m_Left
End Property

Public Property Let Left(ByVal lef As Long)
    m_Left = lef
End Property

Public Property Get Text() As String
    Text = m_Text
End Property

Public Property Let Text(ByVal txt As String)
    Text = txt
End Property

Public Sub Move(ByVal X As Long, ByVal Y As Long)
    m_Left = X
    m_Top = Y
End Sub

Public Sub Remove()
    m_Init = False
End Sub

Public Sub ZOrder(ByRef ord As Long)

End Sub

Public Sub CopyInto(ByRef Control As Object)
    m_Init = True
    m_Width = Control.Width
    m_Height = Control.Height
    m_Top = Control.Top
    m_Left = Control.Left
    m_EditorWidth = m_Editor.Width
    m_EditorHeight = m_Editor.Height
    If TypeOf Control Is ShapeBlock Then
        m_Text = Control.Text
    End If
End Sub

Public Sub CopyOf(ByRef Control As Object)
    m_Init = False
    Control.Width = m_Width
    Control.Height = m_Height
    Control.Top = m_Top
    Control.Left = m_Left
    If TypeOf Control Is ShapeBlock Then
        Control.Text = m_Text
    End If
End Sub




